home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / aakxref.arc / DEALUSER.PAS < prev    next >
Pascal/Delphi Source File  |  1986-04-24  |  820b  |  30 lines
  1.    PROCEDURE dealwithuser;
  2.  
  3.    VAR
  4.       oldx,oldy : integer;
  5.       answer : option_type;
  6.       c : char;
  7.  
  8.    BEGIN
  9.       empty_keyboard;
  10.       oldx:=wherex; oldy:=wherey;
  11.       WRITELN;
  12.       WRITE ('Press space to continue, Esc to abort ...');
  13.       answer := get_answer(#32,#27);
  14.       IF answer=#27
  15.       THEN BEGIN (* ABORT *)
  16.               IF ( 'C' IN Switches ) OR ( 'D' IN Switches )
  17.               THEN BEGIN
  18.                       WRITELN ( LST ) ;
  19.                       WRITE ( LST , Form_Feed ) ;
  20.                    END ;
  21.               HALT ;
  22.            END
  23.       ELSE BEGIN
  24.               gotoxy(wherex,wherey-1);
  25.               delline;
  26.               IF (oldy=25) or (oldy=23) THEN oldy := 23;
  27.               gotoxy(oldx,oldy)
  28.            END ;
  29.    END ; (* NESTED DEAL WITH USER *)
  30.